home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / f.b maker.1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  105 lines
  1. 10 IFZ>0THEN1830
  2. 100 REM    MAKE STARLINE    INTRO
  3. 120 POKE53281,1:POKE53280,6:POKE646,0
  4. 140 PRINT"[147]"
  5. 160 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
  6. 180 PRINT:PRINT
  7. 200 T$="[204][207][193][196][211][212][193][210] IS A GRAND [193]MERICAN":GOSUB1880
  8. 220 T$="EXPERIMENT, BUT [204][207][193][196][211][212][193][210] CAN BE":GOSUB1880
  9. 240 T$="NO MORE OR NO LESS THAN YOU":GOSUB1880
  10. 260 T$="MAKE IT!":GOSUB1880
  11. 280 T$="[195]OMMODORE-64 (AND 128) OWNERS":GOSUB1880
  12. 300 T$="EVERYWHERE ARE BOUND TOGETHER BY":GOSUB1880
  13. 320 T$="THE OWNERSHIP OF A WONDERFUL PIECE":GOSUB1880
  14. 340 T$="OF HARDWARE!":GOSUB1880
  15. 360 GOSUB1940
  16. 380 PRINT"[147]":T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
  17. 400 T$="[204][207][193][196][211][212][193][210] PROVIDES YOU WITH A MECHANISM":GOSUB1880
  18. 420 T$="THAT LINKS YOU TO THE REST OF THE":GOSUB1880
  19. 421 T$="[195]OMMODORE [195]OSMOS.":GOSUB1880
  20. 422 T$="[196]ON'T KEEP YOUR [195]OMMODORE":GOSUB1880
  21. 440 T$="TREASURES A SECRET FROM YOUR FELLOW":GOSUB1880
  22. 460 T$="SPACE TRAVELERS.  [207]THERS WHO ARE":GOSUB1880
  23. 480 T$="JUST BEGINNING THEIR JOURNEY WILL":GOSUB1880
  24. 500 T$="PLACE GREAT VALUE ON YOUR WISDOM":GOSUB1880
  25. 502 T$="AND KNOWLEDGE!":GOSUB1880
  26. 504 T$="[200]ERE IS HOW YOU SHARE...":GOSUB1880:GOSUB1940
  27. 520 PRINT"[147]"
  28. 540 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
  29. 560 PRINT:PRINT
  30. 580 T$="[213]SE THIS FACILITY TO CONVERT A BLANK":GOSUB1880
  31. 600 T$="DISK INTO A [204][207][193][196][211][212][193][210] FEEDBACK DISK.":GOSUB1880
  32. 620 T$="[212]HEN SEND YOUR COMMENTS, REVIEWS,":GOSUB1880
  33. 640 T$="TIPS, QUESTIONS, AND MOST OF":GOSUB1880
  34. 642 T$="ALL ... PROGRAMS ... TO [204][207][193][196][211][212][193][210]":GOSUB1880
  35. 660 T$="ON YOUR DISK, READY FOR PUBLICATION.":GOSUB1880
  36. 680 T$="[217]OUR DISK WILL BE RETURNED TO YOU AND":GOSUB1880
  37. 700 T$="REMEMBER, WE PAY A $50 REWARD FOR":GOSUB1880
  38. 702 T$="PROGRAMS THAT WE USE ON [204][207][193][196][211][212][193][210]!":GOSUB1880
  39. 720 GOSUB1940
  40. 740 PRINT"[147]"
  41. 760 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
  42. 800 T$="[204][207][193][196][211][212][193][210] HAS PROVIDED A 'PEEL-OFF'":GOSUB1880
  43. 820 T$="MAILING LABEL THAT PAYS FOR RETURN":GOSUB1880
  44. 840 T$="POSTAGE.  [202]UST STICK THE LABEL ON OUR":GOSUB1880
  45. 860 T$="CARDBOARD MAILER, PUT YOUR FEEDBACK":GOSUB1880
  46. 880 T$="DISK IN THE MAILER, AND POP IT IN":GOSUB1880
  47. 900 T$="THE MAIL.  [201]T WILL COME RIGHT TO US.":GOSUB1880
  48. 920 T$="[206]O STAMPS REQUIRED!":GOSUB1880
  49. 930 T$="[194]E SURE TO INCLUDE YOUR RETURN":GOSUB1880
  50. 940 T$="ADDRESS SO WE CAN SEND YOUR DISK":GOSUB1880
  51. 950 T$="BACK TO YOU.":GOSUB1880
  52. 980 GOSUB1940
  53. 1360 :
  54. 1380 :
  55. 1400 :
  56. 1420 :
  57. 1440 :
  58. 1460 :
  59. 1480 REM  WANT TO MAKE ONE?
  60. 1500 PRINT"[147]"
  61. 1520 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
  62. 1540 PRINT""
  63. 1560 PRINT"  1.  [205]AKE A [198][197][197][196][194][193][195][203] DISK."
  64. 1561 PRINT"      (FROM A BLANK DISK)":PRINT
  65. 1562 PRINT"  2.  [210]ETURN TO [204][207][193][196][211][212][193][210]"
  66. 1563 PRINT"      ([201]'LL EXPERIMENT WITH THIS LATER)"
  67. 1564 PRINT"[206]OTE:  [212]HIS MAY NOT WORK WELL WITH"
  68. 1565 PRINT"       [198][193][211][212][204][207][193][196] INSTALLED ([211]ORRY!)."
  69. 1570 PRINT"[215]HICH?"
  70. 1580 POKE198,0:WAIT198,1:GETK$
  71. 1600 IFK$<>"1"ANDK$<>"2"THENPRINT"[145][145][145][145]":     GOTO1570
  72. 1620 IFK$="2"THEN2040
  73. 1640 PRINT"[147]"
  74. 1660 T$="**** [204][207][193][196][211][212][193][210] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB1880
  75. 1680 PRINT:PRINT"[147]"
  76. 1700 PRINT"  [207].[203]. [201] WILL TELL YOU WHEN TO REMOVE":PRINT
  77. 1720 PRINT"   YOUR [204][207][193][196][211][212][193][210] DISK AND INSERT A":PRINT
  78. 1722 PRINTSPC(13)"BLANK DISK."
  79. 1800 PRINT"             [208]LEASE WAIT....."
  80. 1820 PRINT"            [204]OADING SOME FILES....     "
  81. 1822 PRINT" [193]PPROXIMATE LOADING TIME IS 40 SECONDS."
  82. 1824 OPEN15,8,15,"R0:LINESTAR ML.O=LINESTAR ML.O":INPUT#15,ER,ER$:CLOSE15
  83. 1826 IFER<19ORER=63THEN1830
  84. 1827 GOTO60000
  85. 1830 IFZ=0THENZ=1:                           LOAD"LINESTAR ML.O",8,1
  86. 1840 PRINT"LOAD"CHR$(34)"F.B MAKER.2"CHR$(34)",8":PRINT"RUN"
  87. 1860 POKE631,13:POKE632,13:POKE198,2:END
  88. 1880 REM   CENTERING
  89. 1900 X=20-LEN(T$)/2:PRINTTAB(X)T$:PRINT
  90. 1920 RETURN
  91. 1940 REM    WAIT FOR KEYPRESS
  92. 1960 POKE783,PEEK(783)AND254
  93. 1980 POKE781,23:POKE782,13:SYS65520:PRINT"<PRESS A KEY>"
  94. 2000 POKE198,0:WAIT198,1:GETK$
  95. 2020 RETURN
  96. 2040 REM   CONNNECT BACK TO HELLO
  97. 2060 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
  98. 2080 POKE631,13:POKE632,13:POKE198,2:END
  99. 60000 REM   ERROR!!
  100. 60010 PRINT"[147]    [215]E HAVE ENCOUNTERED AN ERROR..."
  101. 60020 PRINT" [208]LEASE MAKE SURE THAT [204][207][193][196][211][212][193][210] [211]IDE 2"
  102. 60030 PRINT"          IS IN YOUR DRIVE."
  103. 60040 PRINT"  [208]RESS ANY KEY WHEN YOU ARE READY.."
  104. 60050 POKE198,0:WAIT198,1:POKE198,0:          GOTO1500
  105.